recalculate_f_for_a_new_mesh Subroutine

public subroutine recalculate_f_for_a_new_mesh(ispectr)

recalculate f' for a new mesh ! if(vrj(i).gt.vvj(i0)) exit

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ispectr